home *** CD-ROM | disk | FTP | other *** search
/ Science Fair / Science Fair.iso / pc / working / weather.dir / 00299.ls < prev    next >
Encoding:
Text File  |  1995-03-27  |  442 b   |  27 lines
  1. on exitFrame
  2.   global gSteps, gMore, gOnMove, gPos
  3.   puppetSound(0)
  4.   set gSteps to 0
  5.   set gMore to 0
  6.   set gOnMove to 0
  7.   set gPos to "space1"
  8.   set n to random(5)
  9.   if n = 1 then
  10.     go("reward1")
  11.   else
  12.     if n = 2 then
  13.       go("reward2")
  14.     else
  15.       if n = 3 then
  16.         go("reward3")
  17.       else
  18.         if n = 4 then
  19.           go("reward4")
  20.         else
  21.           go("reward5")
  22.         end if
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.